home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / func.action < prev    next >
Text File  |  2000-03-14  |  1KB  |  60 lines
  1. G4C
  2. ; $VER: func.action Rev.014 (HTMLEXT) by Juan Manuel Wehrli 2000
  3. WINBIG -1 -1 210 90 "Aktion bearbeiten"
  4. WinType 11110000
  5. WinOnMouse 5 5
  6. WinBackground IMAGE BG 0
  7. Winout "NIL:"
  8. VarPath HTMLEXT
  9.  
  10. xONLOAD
  11.     EXTRACT *VIEWERNAME CLEAN name
  12.     Update #This 1 $name
  13.     EXTRACT *VIEWERPRG CLEAN prg
  14.     Update #This 2 $prg
  15.     GuiOpen #This
  16.  
  17. Text 8 0 195 15 "Viewerame:" 75 NOBOX
  18.     GadFont xHelvetica.font 13 000
  19.  
  20. XTextIn 5 15 200 18 "" name "" 255
  21.     GadID 1
  22.     GadFont xHelvetica.font 11 000
  23.     SetVar *VIEWERNAME $name
  24.  
  25. Text 8 35 195 15 "Viewer Parameter:" 75 NOBOX
  26.     GadFont xHelvetica.font 13 000
  27.  
  28. XTextIn 5 50 200 18 "" prg "" 255
  29.     GadID 2
  30.     GadFont xHelvetica.font 11 000
  31.     SetVar *VIEWERPRG $prg
  32.     lvuse menu.action 101
  33.     lvdel -1
  34.     lvadd ''
  35.     %Name = $name
  36.     %Befehl = $prg
  37.     lvsort %Name
  38.     lvsave "HTMLEXT:settings/Action.prefs"
  39.     GuiQuit #This
  40.  
  41. xButton 5 70 90 15 "_1 Ändern"
  42.     GadKey "1"
  43.     GadFont xHelvetica.font 11 000
  44.     lvuse menu.action 101
  45.     lvdel -1
  46.     lvadd ''
  47.     %Name = $name
  48.     %Befehl = $prg
  49.     lvsort %Name
  50.     lvsave "HTMLEXT:settings/Action.prefs"
  51.     GuiQuit #This
  52.  
  53. xButton 115 70 90 15 "[_x] Abbrechen"
  54.     GadKey "x"
  55.     GadFont xHelvetica.font 11 000
  56.     GuiQuit #This
  57.  
  58.  
  59.  
  60.